home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / compress / gnucpio.zip / FNMATCH.C < prev    next >
C/C++ Source or Header  |  1995-01-27  |  5KB  |  201 lines
  1. /* Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
  2.  
  3. This library is free software; you can redistribute it and/or
  4. modify it under the terms of the GNU Library General Public License as
  5. published by the Free Software Foundation; either version 2 of the
  6. License, or (at your option) any later version.
  7.  
  8. This library is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11. Library General Public License for more details.
  12.  
  13. You should have received a copy of the GNU Library General Public
  14. License along with this library; see the file COPYING.LIB.  If
  15. not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16. Cambridge, MA 02139, USA.  */
  17.  
  18. #ifdef HAVE_CONFIG_H
  19. #include <config.h>
  20. #endif
  21.  
  22. #include <errno.h>
  23. #include <fnmatch.h>
  24. #include <ctype.h>
  25.  
  26.  
  27. /* Comment out all this code if we are using the GNU C Library, and are not
  28.    actually compiling the library itself.  This code is part of the GNU C
  29.    Library, but also included in many other GNU distributions.  Compiling
  30.    and linking in this code is a waste when using the GNU C library
  31.    (especially if it is a shared library).  Rather than having every GNU
  32.    program understand `configure --with-gnu-libc' and omit the object files,
  33.    it is simpler to just do this in the source for each such file.  */
  34.  
  35. #if defined (_LIBC) || !defined (__GNU_LIBRARY__)
  36.  
  37.  
  38. #ifndef errno
  39. extern int errno;
  40. #endif
  41.  
  42. /* Match STRING against the filename pattern PATTERN, returning zero if
  43.    it matches, nonzero if not.  */
  44. int
  45. fnmatch (pattern, string, flags)
  46.      const char *pattern;
  47.      const char *string;
  48.      int flags;
  49. {
  50.   register const char *p = pattern, *n = string;
  51.   register char c;
  52.  
  53. /* Note that this evalutes C many times.  */
  54. #define FOLD(c)    ((flags & FNM_CASEFOLD) && isupper (c) ? tolower (c) : (c))
  55.  
  56.   while ((c = *p++) != '\0')
  57.     {
  58.       c = FOLD (c);
  59.  
  60.       switch (c)
  61.     {
  62.     case '?':
  63.       if (*n == '\0')
  64.         return FNM_NOMATCH;
  65.       else if ((flags & FNM_FILE_NAME) && *n == '/')
  66.         return FNM_NOMATCH;
  67.       else if ((flags & FNM_PERIOD) && *n == '.' &&
  68.            (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  69.         return FNM_NOMATCH;
  70.       break;
  71.  
  72.     case '\\':
  73.       if (!(flags & FNM_NOESCAPE))
  74.         {
  75.           c = *p++;
  76.           c = FOLD (c);
  77.         }
  78.       if (FOLD (*n) != c)
  79.         return FNM_NOMATCH;
  80.       break;
  81.  
  82.     case '*':
  83.       if ((flags & FNM_PERIOD) && *n == '.' &&
  84.           (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  85.         return FNM_NOMATCH;
  86.  
  87.       for (c = *p++; c == '?' || c == '*'; c = *p++, ++n)
  88.         if (((flags & FNM_FILE_NAME) && *n == '/') ||
  89.         (c == '?' && *n == '\0'))
  90.           return FNM_NOMATCH;
  91.  
  92.       if (c == '\0')
  93.         return 0;
  94.  
  95.       {
  96.         char c1 = (!(flags & FNM_NOESCAPE) && c == '\\') ? *p : c;
  97.         c1 = FOLD (c1);
  98.         for (--p; *n != '\0'; ++n)
  99.           if ((c == '[' || FOLD (*n) == c1) &&
  100.           fnmatch (p, n, flags & ~FNM_PERIOD) == 0)
  101.         return 0;
  102.         return FNM_NOMATCH;
  103.       }
  104.  
  105.     case '[':
  106.       {
  107.         /* Nonzero if the sense of the character class is inverted.  */
  108.         register int not;
  109.  
  110.         if (*n == '\0')
  111.           return FNM_NOMATCH;
  112.  
  113.         if ((flags & FNM_PERIOD) && *n == '.' &&
  114.         (n == string || ((flags & FNM_FILE_NAME) && n[-1] == '/')))
  115.           return FNM_NOMATCH;
  116.  
  117.         not = (*p == '!' || *p == '^');
  118.         if (not)
  119.           ++p;
  120.  
  121.         c = *p++;
  122.         for (;;)
  123.           {
  124.         register char cstart = c, cend = c;
  125.  
  126.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  127.           cstart = cend = *p++;
  128.  
  129.         cstart = cend = FOLD (cstart);
  130.  
  131.         if (c == '\0')
  132.           /* [ (unterminated) loses.  */
  133.           return FNM_NOMATCH;
  134.  
  135.         c = *p++;
  136.         c = FOLD (c);
  137.  
  138.         if ((flags & FNM_FILE_NAME) && c == '/')
  139.           /* [/] can never match.  */
  140.           return FNM_NOMATCH;
  141.  
  142.         if (c == '-' && *p != ']')
  143.           {
  144.             cend = *p++;
  145.             if (!(flags & FNM_NOESCAPE) && cend == '\\')
  146.               cend = *p++;
  147.             if (cend == '\0')
  148.               return FNM_NOMATCH;
  149.             cend = FOLD (cend);
  150.  
  151.             c = *p++;
  152.           }
  153.  
  154.         if (FOLD (*n) >= cstart && FOLD (*n) <= cend)
  155.           goto matched;
  156.  
  157.         if (c == ']')
  158.           break;
  159.           }
  160.         if (!not)
  161.           return FNM_NOMATCH;
  162.         break;
  163.  
  164.       matched:;
  165.         /* Skip the rest of the [...] that already matched.  */
  166.         while (c != ']')
  167.           {
  168.         if (c == '\0')
  169.           /* [... (unterminated) loses.  */
  170.           return FNM_NOMATCH;
  171.  
  172.         c = *p++;
  173.         if (!(flags & FNM_NOESCAPE) && c == '\\')
  174.           /* XXX 1003.2d11 is unclear if this is right.  */
  175.           ++p;
  176.           }
  177.         if (not)
  178.           return FNM_NOMATCH;
  179.       }
  180.       break;
  181.  
  182.     default:
  183.       if (c != FOLD (*n))
  184.         return FNM_NOMATCH;
  185.     }
  186.  
  187.       ++n;
  188.     }
  189.  
  190.   if (*n == '\0')
  191.     return 0;
  192.  
  193.   if ((flags & FNM_LEADING_DIR) && *n == '/')
  194.     /* The FNM_LEADING_DIR flag says that "foo*" matches "foobar/frobozz".  */
  195.     return 0;
  196.  
  197.   return FNM_NOMATCH;
  198. }
  199.  
  200. #endif    /* _LIBC or not __GNU_LIBRARY__.  */
  201.